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ABSTRACT 


The objective of the proposed research was to begin development of a unique educational tool targeted at 
educating and inspiring young people 12-16 years old about NASA and the Space Program. Since these 
young people are the future engineers, scientists and space pioneers, the nurturing of their enthusiasm and 
interest is of critical importance to the Nation. 

This summer the basic infrastructure of the tool was developed in the context of an educational game 
paradigm. The game paradigm has achieved remarkable success in maintaining the interest of young 
people in a self-paced, student-directed learning environment. This type of environment encourages 
student exploration and curiosity which are exactly the traits that future space pioneers need to develop to 
prepare for the unexpected. 

The Inherit Space Educational Tool is an open-ended learning environment consisting of a finite-state 
machine classic adventure game paradigm. As the young person explores this world, different obstacles 
must be overcome. Rewards will be offered such as using the Flight Simulator to fly around and explore 
Titan. This simulator was modeled on conventional Earth flight simulators but has been considerably 
enhanced to add texture mapping of Titan’s atmosphere utilizing the latest information from the NASA 
Galileo Space Probe. Additional scenery was added to provide color VGA graphics of a futuristic research 
station on Titan as well as an interesting story to keep the youngster’s attention. 

This summer the game infrastructure has been developed as well as the Titan Flight Simulator. A number 
of other enhancements are planned. 
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INTRODUCTION 


Significance of Project 

In addition to its primary mission of Space Research, NASA has a number of other goals such as 
Technology Transfer and educating the public about Space. The education of our Nation’s youth is 
particularly important fewer young people are going into science and engineering, yet these disciplines are 
the foundations of the Space Program. Besides education, there is a critical need to inspire the public 
about the Space Program to keep the dream alive of expanding beyond the boundaries of Earth. 

To cany out this mission of educating and inspiring youth about Space and NASA, the strategy chosen 
was to develop a game called Inherit Space targeted at 12-16 year olds. The game paradigm was selected 
to make the educational component about living in Space interesting while also being fun to play. 

The game design is based on popular adventure games in which the user has a goal and must overcome a 
number of obstacles. The user must explore new environments and challenges in Inherit Space, thus 
mirroring the challenges faced in Space Exploration. The great advantage of an adventure game is that it 
allows the user an open-ended exploration of the environment rather than the linear design of a comic 
book. The disadvantage of an adventure game is that it requires a great deal of progr ammin g and 
creativity on the part of the designers. 

Statement of Project 

The initial tasks undertaken this summer were to 

• Create the infrastructure of a multimedia adventure game involving graphics, video, and sound. 

• Implement a basic exploration scenario involving multiple rooms and obstacles 

• Implement a flight simulator for Titan, a moon of Saturn. 

In order to make it convenient for the target audience of 12-16 year olds to use the game, a graphical user 
interface (GUI) was designed and implemented to provide seamless transitions between the adventure 
game and application programs such as the Flight Simulator. The GUI is designed for Windows and 
Mouse support, and a joystick for operation of the Flight Simulator. Graphic images of the different rooms 
are shown the user and a musical score is played which changes depending on the room the user is in. 

METHODOLOGY 

In order to expedite the software development, commercial off the shelf software was used whenever 
possible (Michael Radke and Chris Lampton, Build Your Own Flight Sim in C++). However this was still 
not trivial as the original flight simulator is 6,000 lines of C++ code which required substantial 
modification for Titan. In particular the background scenery was modified from the simple blue sky of 
Earth to provide colors and texture mapping for realistic views of the Titanian atmosphere based on data 
from the NASA Galileo Space Probe. In addition, the scenery had to be altered to display buildings and 
other objects of the game plot 

Initially Java was tried as the development language. However since Java does not support video clips 
which are planned for the game, and is also too slow for real-time response, it was decided to switch to an 
alternative development tool called Delphi. 
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IMPLEMENTATION 


Finite-State Machine Adventure Game 

A finite-state machine was implemented using Delphi for the adventure game infrastructure. The finite- 
state machine is straightforward to implement easily extensible as further rooms are added to the game. It 
is also very easy to call other code such as the flight simulator depending on the state of the finite-state 
machine, i.e., what room the user is in. 

Graphic images are shown to the user and mouse-sensitive buttons are displayed to allow the user to 
explore other rooms or take other actions. This feature is particularly convenient for the 12-16 year olds as 
it minimizes typing of input. It also keeps up the pace of the game rather than slowing down while the 
user types input. 

Flight Simulator 

The Flight Simulator is game designed to be called from the main adventure game. This game within a 
game is called a game let. The Flight Simulator is designed as a fun educational component. It teaches the 
user what conditions on Titan are like through flying over the surface and various instrument readouts. 
There is a good deal of skill required by the user for successful flying. Even if the user has experience with 
Earth simulators, the Titan Flight Simulator is substantially different and challenging. 

The following modifications to the original flight simulator were implemented. 

• Initialize flight in the air to match the game plot 

• Improve flying controls for Titan 

• Customize scenery for Titan 

• Provide interface with adventure game GUI 




Superb 

Close 

Crash 

Lost 

Quit 


11-4 



A number of 3-D interactive game programming techniques and algorithms were required to properly 
implement the Flight Simulator: 

• Object representation 

• Keyboard, mouse, and joystick input 

• Flight modeling 

• VGA color system, texture and color mapping 

• Viewing transformations 

• Integrate with the main program 

• Flight Initialization in mid-air required proper initialization of the State Vector 

• Improved Flight Controls since the original code provided poor flight control 

• Sensitivity Variable to provide the same flying characteristics on different machines 

• Real-time Timer 



Before Modification 



After Modification 
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3D VIEW PROCESSING 


In addition, a considerable amount of effort was needed to provide realistic 3D modeling of the graphics 
showing Titan that involved view processing. The following factors were affected. 


Multiple coordinate system 
transformations 
Polygon sorting 
Hidden surface removal 
Polygon clipping 
Pixel color assignment 
VGA Master Palette 
The horizon 

Dynamic sky and ground 
Different approach needed for 3-D 
texturing of sky and ground 
Texturing not supported by existing 
object classes and algorithms 


Bitmaps and the master color palette 
required modification 
Improving the Scenery 
Scenery Objects - World File 
Objects 
Polygons 

• Vertices 

• Color 
Location 

World Coordinates 
Improving the Scenery 


PROBLEMS ENCOUNTERED 

Some of the major problems encountered were as follows. 

• Determining when an EXE was closed and control returned to launcher program 

• Launching flight simulator from the Delphi program 

• Delphi executables were too large to fit on a diskette 

• Distinguish between DLL and EXE programs 

• Change music between modules 

• Maintain continuity between modules with same music 

• Silence was difficult 

• Creating obstacles for the user 


CONCLUSIONS 

The initial version of game was successfully completed this summer. A number of future improvements 
are planned. For the Flight Simulator the following enhancements will be done. 

• Improve texture mapping for sky and ground. 

• Add terrain using fractals. 

• Modernize cockpit indicators. 

• Improve flight model. 

• Add collision detection. 

• Add auto-pilot and help. 

For the adventure game, a number of additional rooms and gamelets need to be added as the adventure 
continues. Another feature that will be added is a multimedia Timeline that will show NASA history and 
technology development from the past to the future involving the game. Multimedia video clips and other 
educational aids will be used to pique user interest and provide a resource for other games. 
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APPENDIX-FINITE STATE MACHINE SOFTWARE 


unit Launch; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, StdCtrls, ExtCtrls, IniFiles, MPlayer, 
type 

TLauncherForm = class(TForm) 

Timer 1: TTimer, 

MediaPIayerl: TMediaPIayer, 
procedure FormCreate(Sender: TObject); 
procedure FormDestroy( Sender: TObject); 
procedure Timer lTimer(Sender: TObject); 
private 

{ Private declarations } 

Other: Word; 
procedure InitEnvPanns; 
public 

{ Public declarations } 

EnvParms: TStringList; 
end; 

var 

LauncherForm: TLauncherForm; 
implementation 
{$R *.DFM) 

procedure TLauncherForm. InitEnvPanns, 
var 

p: PChar, 
s: string; 
begin 

p:=GetDos Environment; 
wliile p A o #0 do begin 
s:=StrPas(p); 

EnvParms. Add(s); 
p:=StrEnd(p)+l; 
end; 
end; 


procedure TLauncherForm.FormCrcate(Sender: TObject); 
var 

R ooms Ini, Status Ini : TIniFile; 

RtnCode: Integer, 

B : Integer, 

NameOfFirstRoom, OldSong : String; 
begin 

Rooms Ini := 

TIniFile. Createfd: \delphi\source\launch\rooms. INT); 
NameOfFirstRoom := R ooms Ini. ReadString(’rooms', 
first'/ERROR'); 

OldSong RoomsIni.ReadStrmgCmidi', 
NameOfFirstRoom/ERROR'); 

RoomsIni.Free; 

Status Ini := 

TIniFile. Createfd:\delphi\source\launch\status.INr); 
StatusIm.WriteStringClocation', 'current 1 , NameOfFirstRoom); 


StatusIni.WriteString(’locatiori, 'previous', 
NameOfFirstRoom); 

Status Ini. WriteString(’location’, 'oldsong', OldSong); 

Status Ini. Write Boolf items', toothpaste'. False); 

Status Ini. WriteBoolfitems', food'. False); 

Status Ini. Free, 

MediaPIayerl. FileName :=01dSong, 

MediaPIayerl .Open; 

MediaPIayerl . Play, 

EnvPanns: -TStringList Create; 

InitEnvPanns; 

end; 

procedure TLauncherForm. FormDestroy(Sender: TObject); 
begin 

EnvParms.Free; 

end; 

procedure LivingroomForm; 
far, external 'DLiving'; 

procedure KitchenForm; 
far, external 'DKitchen'; 

procedure TLauncherForm.TimerlTimer(Sender: TObject); 
var 

Status Ini,Roomslm, Musiclni : TIniFile; 

Oldsong, CunentLocation, CurrentLocationExe, CunentSong 
: String, 

cmd: array[0..100] of Char, 
begin 

if GetModuleUsage(Other) = 0 then begin 
Timerl .Enabled: =False; 

Status Ini := 

TIniFile. Crcatef d:\delphi\source\launch\status. INI'); 

CurrentLocation := Status Ini. ReadStringflocatiori, 

'current', 'ERROR'); 

OldSong := StatusIni.ReadStringflocation', 
'oidsong'/ERROR'); 

StatusIni.Free; 

if CurrentLocation = EXIT then halt; 

Musiclni := 

TIniFile. Createfdi^Iphi^source^aunch^ooms. INT); 

Currents ong := Musiclni. ReadString(*midi', 
CurrentLocation,ERROR’); 

MusicIni.Free; 

If OldSong o CunentSong then 
begin 

MediaPIayerl .Stop; 

MediaPIayerl .Close; 

IF CunentSong <> 'ERROR' THEN BEGIN 
MediaPIayerl. FileName := CunentSong; 

Medi aPlayer 1 .Open; 

MediaPlayer 1 . Play, 

END; 
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Status Ini := 

TIniFile.CrcateCd:\delphi\source\l aunch\status.INI’); 

Status Ini . Write String(T ocati on', 'oldsongf, CurrentSong); 

StatusIni.Free; 

end; 

Rooms Ini := 

TIniFile.Create( , d:\deIphi\source\launch\rooms.INr); 

CurrentLocationExe := R ooms Ini. Rc^xlStringf rooms', 
CurrentLocati on/ERROR 1 ); 

RoomsIni.Free; 

if Copy(CurrentLocationExe,Length(CurrentLocationExe> 

2,3) = W then begin 

if CurrentLocati on = living' then 
begin 

LivingroomForm; 

end else if CurrentLocation = ’kitchen' then begin 
KitchenForm; 
end; 

Timer 1 . Enabled: =True; 
end else begin 

StrPCop^cmd, CurrentLocationExe); 

Other:= WinExec(cmd, S W_SHO W); 
if Other < HINSTANCEERROR then begin 
end else begin 
Timerl.Enabled:=True; 
end; 
end; 
end; 
end; 
end. 

unit Bathl; 

interface 

uses 

Sys Utils, WinTypes, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, Inifiles, StdCtrls, ExtCtrls; 
type 

TForm 1 = class(TForm) 

Label 1 : TLabel; 

Button I: TButton; 

T oothpasteStatus : TLabel; 

Imagel: TImage; 

Label2: TLabel; 

Label3: TLabel; 

Button2: TButton; 

procedure Button l Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForm 1; 


implementation 


{$R * DFM} 

procedure TForml.ButtonlClick(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile. CreateCd: \delphi\source\launch\ST ATUS . INF); 
Gamelni. WriteStringflocation', 'current', 'bedroom'); 

Gamelni. Free; 

Halt; 

end; 

procedure TForml.Button2Click(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile. Create('d:\delphi\source\launch\ST ATUS .INI'); 
Gamelni. WriteString^location', 'current 1 , *toolshecf); 

Gamelni. Free; 

Halt; 

end; 

procedure TForm l.FormCreate(Sender: TObject); 
var 

Statuslni: TIniFile; 
begin 

Statuslni := 

TIniFile. Createf d:\delphi\source\launch\status. INI'); 

Statuslni . Write String(Tocation','currentVEXIT) ; 

if Statuslni. ReadBoolf items’, toothpaste', False) = True then 

begin 

ToothpasteStatus. Caption := There"s toothpaste in the 
cabinet'; 
end else begin 

ToothpasteStatus. Caption := 'Y ou need to buy toothpaste. 1 ; 
end; 

StatusIni.Free; 

end; 

end. 

unit Bedroom3; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, StdCtrls; 
type 

TForm3 * class(TForm) 

Labell: TLabel; 

procedure Label lClick(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations ) 
end; 

var 

Form3: TForm3; 
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implementation 
{SR *.DFM} 

procedure TForm3.LabellClick(Sender: TObject); 

begin 

Close; 

end; 

end. 

unitDrugl; 

interface 

uses 

SysUtils, WinTypes, WtnProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, Inifiles, StdCtrls; 
type 

TForml = class(TForm) 

Label 1: TLabel; 

Button 1: TButton; 

ListBoxl : TListBox; 

ListBox2: TListBox; 

ToothpasteStatus: TLabel; 

Button2: TButton; 

procedure Button lClick(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForm 1 .Button 1 Click(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile.Createf c:\data\k\cddfnasagame\titan\launcher\STAT 
US.INF); 

Gamelni. WriteStringClocati on', 'current', ’kitchen'); 

Gamelni. Free; 

Halt; 

end; 

procedure TForm 1 Button2Click(Sender TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIiuFile.Createf d:\delphi\source\launch\STATUS.INT); 
Gamelni.WriteBoolfitems’, toothpaste’. True); 

Gamelni.Free; 

ToothpasteStatus. Caption := Y ou now have some 
toothpaste.'; 


end; 

procedure TForm l.FormCreate(Sender: TObject); 
var 

Statuslni: TIniFile; 

B : Integer, 
begin 

Statuslni := 

TIniFil e. Create('d:\deIphi\source\launch\status. INI'); 

Statuslni . WriteStringf location7current', , EXIT) ; 

Statuslni. ReadSectionflocation', List Box 1 . Items); 
for B := 0 to (ListBoxl. Items. Count - 1) do 
begin 

ListBo x2 . Items. Add( Status Ini . ReadString(’l ocati on', 
ListBoxl .Items [BJ.'ERROR')); 
end; 

if Status Ini. ReadBoolf items', toothpaste', False) — True then 
begin 

Toothpaste Status. Caption := You already have some 
toothpaste.'; 
end else begin 

ToothpasteStatus.Caption := You need to buy toothpaste.'; 
end; 

Statuslni. Free; 
end; 

end. 

unit Grocery 1; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, Inifiles, StdCtrls; 
type 

TForml = class(TFonn) 

Label 1: TLabel; 

Button 1: TButton; 

ListBoxl : TListBox; 

ListBo x2: TListBox; 

FoodStatus: TLabel; 

Button2 : TButton; 

procedure Button lClick(Sender: TObject); 
procedure Button2Click( Sender: TObject); 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForm 1. Button lClick(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 
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Gamelni :* 

TIniFUerreateCd:\deiphi^ource\launch\STATUS.INI r ); 
Gamelni. WriteStringClocation 1 , 'current*, ’kitchen'); 

Gamelni. Free; 

Halt; 

end; 

procedure TForml.Button2Click(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile.Createf d:\delphiteource\launch\ST ATUS.INI'); 
Gamelm. Write Boolfitems', food*, True); 

Gamelni. Free; 

FoodStatus. Caption := 'You now have some food.’; 
end; 

procedure TForml.FormCreate(Sender: TObject); 
var 

Status Ini: TIniFile; 

B : Integer, 
begin 

Statuslni := 

TIniFUe.Createf d:\delphi\source\launch\status. INF); 

Statuslni. WriteStringClocation’,'current',’EXIT ); 

Statuslni. ReadS ection(1ocation', ListBox 1 . Items); 
for B :* 0 to (ListBox 1. Items. Count - 1) do 
begin 

ListBox2 . Items . Add( Statuslni . ReadStringClocation’, 

ListBox 1 .ItemsfB], ’ERROR*)); 
end; 

if Status Ini. Read Boo l Oitems', food’. False) = True then 
begin 

FoodStatus. Caption := You already have some food.'; 
end else begin 

FoodStatus.Caption :* You need to buy groceries.’; 
end; 

Status Ini. Free; 
end; 

end. 

unit Kitchen2; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, Inifiles, StdCtrls, ExtCtrls; 
type 

TForml = class(TForm) 

Label I: TLabel; 

Button 1: TButton; 

Button2: TButton; 

Button3: TButton; 

FoodStatus: TLabel; 

ToothpasteStatus: TLabel; 

Button4: TButton; 

Image 1: Tlmage; 

Button5: TButton; 

procedure Button lCHck(Sender. TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormCreate(Sender. TObject); 


procedure Button3Click( Sender: TObject); 
procedure FormDestroy(Sender: TObject); 
procedure Button4Click(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

FormI: TForml; 

procedure KitchenForm; export; 

implementation 

{$R *.DFM} 
procedure KitchenForm; 
begin 
try 

Forml :=TForm 1 .Create( Application); 

Form 1 .ShowModal; 
finally 
Forml. Free; 
end; 
end; 

procedure TForml. Button lClick(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile.Createf c:\daUk\cddf\nasagameVtitanVlauncher\ST AT 

us.iNr); 

Gamelni. WriteStringflocation’, 'current', 'drug’); 

Gamelni. Free; 
close; 
end; 

procedure TForml. Button2Click(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile.Creale( , c:\data\k\cddf\nasagame\titan\Iauncher\STAT 

US.INT); 

Gamelni. WriteStringClocation', ’current 1 , living*); 

Gamelni. Free; 
close; 
end; 

procedure TForm l.FormCreate( Sender: TObject); 
var 

Statuslni: TIniFile; 
begin 

Statuslni := 

TlniFile.Ci^ate(’c:\daU\k\cddf^asagame\titanVlauncher\status. I 

NT); 

Statuslni. Write String( T lc)cation',’current , , r E XI T); 

if Statuslni. ReadBoolfitems’, toothpaste’. False) - True then 

begin 

ToothpasteStatus.Caption := You have some toothpaste 
now.'; 

end else begin 

T oothpasteStatus. Caption := ’You need to buy toothpaste.’; 
end; 
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if Statuslni. Read Boo If items', food'. False) = True then 
begin 

FoodStatus. Caption There"s some yummy food here.'; 

end else begin 

FoodStatus. Caption := The cupboards are bare!'; 
end; 

StatusIni.Free; 

end; 

procedure TForm 1 . Button3 Click( Sender ; TObj ect); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile. CreateCc:\data\k\cddfnasagame\titan\iauncher\ST AT 

us.in r); 

Gamelni. WnteString(locat ion', 'current', ’airstrip'); 
Gamelni.Free; 
close; 
end; 

procedure TTorml.FormDestroy(Sender: TObject); 
var 

Statuslni : TIniFile; 
begin 

Statuslni := 

TIniFile.CreateCc:\data\k\cddf\nasagame\titan\launcher\status.I 

ni 1 ); 

Statuslni. WriteStringClocationVprevious', 'kitchen'); 

StatusIni.Free; 

end; 

procedure TForm l.Button4Click(Sender: TObject); 
var 

Statusini : TIniFile; 
begin 

Statuslni := 

TIniFile.Create('c:\data\k\cddfnasagame\titan\launcher\status.I 

niO; 

Statuslni. WriteString^ocation'/curren^statusini . readstringCloc 
ation','previousVErrorO); 

Statusini. Free; 

close; 

end; 

end. 

unitLivingl; 

interface 

uses 

SysUtils, Win Types, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, Inifiles, StdCtrls; 


type 

TForm 1 = class (TForm) 

Label 1 : TLabel; 

Button I : TButton; 

Button2: TButton; 

ListBoxl: TListBox; 

ListBox2: TListBox; 

procedure Button I Click( Sender: TObject); 
procedure Button2Click(Sender: TObject); 


procedure FormCreate(Sender: TObject); 
procedure FonnDestroy(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForm 1 ; 
implementation 

{SR *.DFM} 

procedure TForm I. Button lClick(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile. CreateCd:\delphi\source\launch\ST ATUS . INF); 
Gamelni. WriteStrin^flocation’, 'current', ’bedroom'); 
Gamelni.Free; 

Halt; 

end; 

procedure TForm l.Button2CIick(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TIniFile .CreateCd:\deIphi\sourceVlaunch\S T ATU S . INI'); 
Gamelni. WriteString(1ocation’, 'current 1 , kitchen'); 
Gamelni.Free; 

Halt; 

end; 

procedure TForm l.FormCreate(Sender: TObject); 
var 

Statuslni: TIniFile; 

B : Integer, 
begin 

Statuslni := 

TIniFile. Create(’d:\delphi\source\launch\stams. rNI’); 
Statuslni. WriteStringflocationVcurrent'/EXIT); 
Statuslni. ReadSectionClocation', ListBoxl. Items); 
for B := 0 to (ListBoxl. Items. Count - l) do 
begin 

ListBox2.Items.Add(StatusIni.ReadString( T locaiion < , 
ListBoxl. Items [B], 'ERROR')); 
end; 

StatusIni.Free; 

end; 

procedure TForm l.FormDestroy(Sender: TObject); 
var 

Statuslni: TIniFile; 
begin 

Statuslni :- 

TIniFile. Create('d:\delphi\source\J aunch\status.INI'); 
Statuslni. WriteStringClocation', ’previous',living r ); 
StatusIni.Free; 
end; 
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end 


unit Tools 1; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, 
Controls, 

Forms, Dialogs, Inifiles, StdCtrls, ExtCtrls; 
type 

TForml * class(TForm) 

Label 1: TLabel; 

Buttonl : TButton; 

Image 1: TImage; 

Image2: TImage; 

procedure Button lClick(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormCreate( Sender: TObject); 
procedure lmage2Click(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 


implementation 
{$R * DFM} 

procedure TForml. Button lClick(Sender: TObject); 
var 

Gamelni : TIniFile; 

begin 


Gamelni 

TlniFile.Create^diXdelphi^urceMaunchvST ATUS . INI'); 
Gamelni. WriteString^ocation', ’current’, 'ball’); 
Gamelni. Free; 

Halt; 

end; 

procedure TForml. Button2Click(Sender: TObject); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TlniFile.CreatefdiydelphiVsourceMaunchvSTATUS.INr); 
GameIni.WriteString(1ocation', 'current', toolshed 1 ); 
Gamelni.Free; 

Hah; 

end; 

procedure TForml. FormCreate(Sender: TObject); 
var 

Statuslni: TIniFile; 
begin 

Statuslni :* 

TIniFile.Create( , d:\delphi\source\launch\status.rNT); 
Statuslni . WriteStringClocation'/current'/EXIT) ; 
Statuslni. Free; 
end; 

procedure TForm 1 . Image2 Click(S ender: T Obj ect); 
var 

Gamelni : TIniFile; 
begin 

Gamelni := 

TlniFile.CreateCdiVdelphi^urceMaunch^T ATUS. INI'); 
Gamelni. WriteStringClocation', 'current', 'bath'); 
Gamelni.Free; 

Hah; 

end; 

end 
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